From ee3066f05127f2b17aae5b220c25060b41255cda Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Tue, 21 Jun 2011 22:13:24 +0000 Subject: [PATCH] nnimap.el (nnimap-find-article-by-message-id): return nil when no article found. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nnimap.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 521ec8b4f48..d7810363a7b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -5,6 +5,11 @@ (auth-sources): Prefer the ~/.authinfo file over the ~/.authinfo.gpg file, especially when saving. +2011-06-21 Andrew Cohen + + * nnimap.el (nnimap-find-article-by-message-id): return nil when no + article found. + 2011-06-18 Teodor Zlatanov * auth-source.el (auth-source-netrc-use-gpg-tokens): Replace diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index dc8b38b8f9a..1bbd76f345e 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -929,7 +929,7 @@ textual parts.") (car (setq result (nnimap-parse-response)))) ;; Select the last instance of the message in the group. (and (setq article - (car (last (assoc "SEARCH" (cdr result))))) + (car (last (cdr (assoc "SEARCH" (cdr result)))))) (string-to-number article)))))) (defun nnimap-delete-article (articles) -- 2.30.2